home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / misc / junior / !Junior / !Run < prev    next >
Encoding:
Text File  |  1993-02-10  |  1.3 KB  |  44 lines
  1. | > !Junior.!Run
  2. |
  3. | Junior !Run File
  4. | --------------------
  5. |
  6. | (c)1989 Computer Concepts Limited.
  7. |
  8.  
  9. WimpSlot -min 344K -max 344K
  10.  
  11. RMEnsure FontManager 2.42 Error 0 FontManager 2.42 or greater not installed. Locate !Fonts directory on Fonts disc
  12.  
  13. If "<Font$Path>"="" THEN Error 0 Fonts cannot be found. Locate !Fonts directory on Fonts disc
  14.  
  15. RMEnsure ColourTrans 0.52 RMLoad <Obey$Dir>.RMStore.Colours
  16. RMEnsure Impulse 0.17 RMLoad <Obey$Dir>.RMStore.ImpulseII
  17. Set ImpSpell Present
  18. Set OldImpSpell Present
  19. RMEnsure ImpressionSpell 0.00 Set OldImpSpell NotPresent
  20. RMEnsure ImpressionSpell 1.24 Set ImpSpell NotPresent
  21. If "<ImpSpell>"="NotPresent" AND "<OldImpSpell>"="Present" THEN RmKill ImpressionSpell
  22. Set ImpSpell Present
  23. Set OldImpSpell Present
  24. RMEnsure SpellMaster 0.00 Set OldImpSpell NotPresent
  25. RMEnsure SpellMaster 1.24 Set ImpSpell NotPresent
  26. If "<ImpSpell>"="NotPresent" AND "<OldImpSpell>"="Present" THEN RmKill SpellMaster
  27. UnSet ImpSpell 
  28. UnSet OldImpSpell
  29.  
  30. IconSprites <Obey$Dir>.!Sprites
  31.  
  32. Set File$Type_D87 DocData
  33. Set File$Type_D88 Stories
  34. Set File$Type_D89 IModule
  35. Set File$Type_D8A Excep'ns
  36. Set File$Type_D8B Abbrev
  37.  
  38. Set Junior$Dir <Obey$Dir>
  39. Set Junior$Path <Obey$Dir>.!Run
  40.  
  41. Set Junior$TimeFormat "%z12:%mi:%se %pm"
  42. Set Junior$DateFormat "%zdy%st %mo %ce%yr"
  43.  
  44. Run "<Junior$Dir>.!RunImage" %*0